home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 / Aminet - June 1993 [Walnut Creek].iso / usenet / sources / volume90 / examples / blitrsnd / part01
Encoding:
Internet Message Format  |  1990-08-15  |  42.5 KB
  1. Path: abcfd20.larc.nasa.gov!amiga-request
  2. From: amiga-request@abcfd20.larc.nasa.gov (Amiga Sources/Binaries Moderator)
  3. Subject: v90i225: BlitterSand - cellular automaton model of self organized criticality, Part01/01
  4. Reply-To: michael creutz <creutz@max.bnl.gov>
  5. Newsgroups: comp.sources.amiga
  6. Message-ID: <comp.sources.amiga:v90i225@abcfd20.larc.nasa.gov>
  7. Date: 15 Aug 90 01:04:37 GMT
  8. Approved: tadguy@uunet.UU.NET (Tad Guy)
  9. X-Mail-Submissions-To: amiga@uunet.uu.net
  10. X-Post-Discussions-To: comp.sys.amiga
  11.  
  12. Submitted-by: michael creutz <creutz@max.bnl.gov>
  13. Posting-number: Volume 90, Issue 225
  14. Archive-name: examples/blittersand/part01
  15.  
  16. [ uuencoded executable and icons enclosed  ...tad ]
  17.  
  18. This program simulates the cellular automaton model presented
  19. by P. Bak, C. Tang, and K. Wiesenfeld (Phys. Rev. Lett. 59, 381 (1987);
  20. Phys. Rev. A38, 364 (1988)) to illustrate self organized criticality.
  21. Each site carries a positive integer representing the local slope of 
  22. a sandpile.  If the slope exceeds 3, the site is unstable and on
  23. updating it drops by 4, adding one to each of his neighbors.
  24. Sand is lost only at the edges.  Any state will relax to stability
  25. through such sand loss.
  26.  
  27. #!/bin/sh
  28. # This is a shell archive.  Remove anything before this line, then unpack
  29. # it by saving it into a file and typing "sh file".  To overwrite existing
  30. # files, type "sh file -c".  You can also feed this as standard input via
  31. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  32. # will see the following message at the end:
  33. #        "End of archive 1 (of 1)."
  34. # Contents:  BlitterSan0.uu BlitterSan1.uu BlitterSand.asm
  35. #   BlitterSand.uu
  36. # Wrapped by tadguy@abcfd20 on Tue Aug 14 21:04:35 1990
  37. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  38. if test -f 'BlitterSan0.uu' -a "${1}" != "-c" ; then 
  39.   echo shar: Will not clobber existing file \"'BlitterSan0.uu'\"
  40. else
  41. echo shar: Extracting \"'BlitterSan0.uu'\" \(3658 characters\)
  42. sed "s/^X//" >'BlitterSan0.uu' <<'END_OF_FILE'
  43. Xbegin 700 BlitterSand.asm.info
  44. XMXQ```0``````8P`+`&(`'0`&``,``0`C,C``(SB0````````````````````;
  45. XM````!"(`(SKX`````````%\```````````````````````````!B`!T``P`!=
  46. XM.*C_`````````````````````````````````$5555550```````````15_5Q
  47. XM555```````````!%5M55544``````````$569]?51P``````````159G9V5'3
  48. XM``````````!%5F9F14<``````````$56QF9U1P``````````15_'Q\5'````T
  49. XM``````!%5!4%!4<``````````$5555551P``````````1?UU=55'````````G
  50. XM``!%S%%Q54<``````````$7$=7%]1P``````````1?5Q<<U'``````````!%7
  51. XMP7%Q_$<``````````$7%<7'`1P``````````1>5Y>7U'``````````!%!4%!%
  52. XM04<``````````$5555551P``````````1555555'``````````!%555554<`H
  53. XM`````````$5555551P``````````15550`%'``````````!%555554<`````W
  54. XM````````````!P``````````+_______```````````55555554`````````O
  55. XM```````````````````!_______X``````````'_______@``````````?_P8
  56. XM?____\`````````!__D_____P`````````'_^9P\/_O``````````?_YF9F?&
  57. XM^\`````````!__F9F?_[P`````````'_^3F9G_O``````````?_P?#P_^\``G
  58. XM```````!_______[P`````````'_______O``````````?X#SX__^\``````(
  59. XM```!_S/_S__[P`````````'_/X_/A_O``````````?\/S\\S^\`````````!V
  60. XM_S_/SP/[P`````````'_/\_//_O``````````?X?AX>'^\`````````!____=
  61. XM___[P`````````'_______O``````````?______^\`````````!_______[>
  62. XMP`````````'_______O``````````?______^\`````````!_______[P```E
  63. XM``````'_______O``````````?@``````\``````````________P```````M
  64. XM``!________`````````````````````````````````````````````````Z
  65. XM`````````````````````````````````````````````````````````````
  66. XM`````````````````````````````````````````````````````````````
  67. XM`````````````````````````````````````````````````````````````
  68. XM`````````````````````````````````````````````````````````````
  69. XM`````````````````````````````````````````````````````````````
  70. XM`````````````````````````````````````````````````````````````
  71. XM`````````````````````````````````````````````````````````````
  72. XM`````````````````````````````````````````````````````````````
  73. XM`````````````````````&(`'0`#``(2</\`````````````````````````%
  74. XM*JJJJJJH!5555555```W______Z_______L``#?______K______^P``-___K
  75. XM___^O______[```WZJJJJN`#ZJJJJKL``#?______K______^P``-______^O
  76. XMOZJJJJJ[```W______Z_______L``#?55555?K^JJJJJNP``-______^O___B
  77. XM___[```W555557Z_JJJJJKL``#?______K______^P``-U55555^OZJJJJJ[V
  78. XM```W_____^`#______L``#=55555?K^JJJJJNP``-______^O______[```W6
  79. XMU55557Z_JJJJJKL``#?______K______^P``-U55555^OZJJJJJ[```W____Z
  80. XM__Z_______L``#=55555?K^JJJJJNP``-______^O______[```W_____^`#;
  81. XM______L``#?__U___K___K__^P``-______^O______[```P``````"`````4
  82. XM``,``"JJJJJJJ`55555550````````````````````#_______X?_______`^
  83. XM`/_______________\``^``````!P``````'P`#X``````'```````?``/@`L
  84. XM`````<``````!\``^``````?_!55555'P`#X``````'```````?``/@`````N
  85. XM`<!555551\``^``````!P``````'P`#X*JJJJH'`555554?``/@``````<``1
  86. XM````!\``^*JJJJJ!P%55555'P`#X``````'```````?``/BJJJJJ@<!55555X
  87. XM1\``^``````?_``````'P`#XJJJJJH'`555554?``/@``````<``````!\``=
  88. XM^"JJJJJ!P%55555'P`#X``````'```````?``/BJJJJJ@<!555551\``^```P
  89. XM```!P``````'P`#XJJJJJH'`555554?``/@``````<``````!\``^``````?;
  90. XM_``````'P`#X``"@``'```%```?``/@``````<``````!\``____________;
  91. XM____P`#________________``/_______A_______\``````````````````$
  92. XM`````````````````````````````````````````````````````````````
  93. XM`````````````````````````````````````````````````````````````
  94. XM`````````````````````````````````````````````````````````````
  95. XM`````````````````````````````````````````````````````````````
  96. XM`````````````````````````````````````````````````````````````
  97. XM`````````````````````````````````````````````````````````````
  98. XM`````````````````````````````````````````````````````````````
  99. XM`````````````````````````````````````````````````````````````
  100. XM`````````````````````````````````````````````````!-S>7,Z=71I^
  101. X,;&ET:65S+VUO<F4`L
  102. X``
  103. Xend
  104. Xsize 2577
  105. END_OF_FILE
  106. if test 3658 -ne `wc -c <'BlitterSan0.uu'`; then
  107.     echo shar: \"'BlitterSan0.uu'\" unpacked with wrong size!
  108. fi
  109. # end of 'BlitterSan0.uu'
  110. fi
  111. if test -f 'BlitterSan1.uu' -a "${1}" != "-c" ; then 
  112.   echo shar: Will not clobber existing file \"'BlitterSan1.uu'\"
  113. else
  114. echo shar: Extracting \"'BlitterSan1.uu'\" \(1204 characters\)
  115. sed "s/^X//" >'BlitterSan1.uu' <<'END_OF_FILE'
  116. Xbegin 700 BlitterSand.info
  117. XMXQ```0``````%``+`#\`%@`&``$``0`C(\@`(R<P``'SG@```````````&0`N
  118. XM`````R(``````"`'F````!```````````````````!`````````_`!8``@``;
  119. XM_K@#````````````````````````````````````(`````````!_````````8
  120. XM``'X```````````````````````J@````````$!`````````@"````,```$`'
  121. XM```*!````````!4(`````%`HJI````"JH%%58````%5:HJJJ@```*K5%554`@
  122. XM```52@JJJJ@```J4555550`"JJB*JJBJH!5544555%50*JJJHJJJ*JA55555Y
  123. XM55555`````````````````````````````'@`````````_\````````'`?@`V
  124. XM``````8`.```````!P!P`!4````#`<``H(````'_``$`0````P`````@``H$@
  125. XM```!`?``%0@```'_H"BND````%505=_@````*JJJO_^```!5555__P```"JJ;
  126. XMJO_^J```%555?_U5``*JJJK_^JJ@%55555_555`JJJJJJJJJJ%5555555554$
  127. XM```````_`!8``@`!`!@#``````````````````````````````JJH```````'
  128. XM555`````<`"JJH````!P`5557__\`'`"JJJ@````<`%554````!P`*JJH```(
  129. XM````U55```````&`0``*`````!```!4``````%`HJH````"JH%%50````E5:=
  130. XMHJJB@``$*K5%55$```(5:@JJJJ@``$J4555150`"JJB*JJBJH!5544555%50Y
  131. XM*JJJHJJJ*JA5555555555```````````````````````'__@``'_\`#__^``Y
  132. XM`X!P`?O_P``'`'`#U_____X`<`.J_^``!X!P`]7_X``'P'``JO_@``'_\`!5I
  133. XM_^```````(````H````!$_``%0````'_H"BJ@````550555````"JJJJJJJ`8
  134. XM``15555570```BJJJJJNJ```55555555``*JJJJJKJJ@%555555555`JJJJJ@
  135. X0JJJJJ%5555555554````!```1
  136. X``
  137. Xend
  138. Xsize 826
  139. END_OF_FILE
  140. if test 1204 -ne `wc -c <'BlitterSan1.uu'`; then
  141.     echo shar: \"'BlitterSan1.uu'\" unpacked with wrong size!
  142. fi
  143. # end of 'BlitterSan1.uu'
  144. fi
  145. if test -f 'BlitterSand.asm' -a "${1}" != "-c" ; then 
  146.   echo shar: Will not clobber existing file \"'BlitterSand.asm'\"
  147. else
  148. echo shar: Extracting \"'BlitterSand.asm'\" \(29043 characters\)
  149. sed "s/^X//" >'BlitterSand.asm' <<'END_OF_FILE'
  150. X;BlitterSand 
  151. X;by Mike Creutz
  152. X;   P.O. Box 204
  153. X;   E. Moriches, NY 11940
  154. X;   USA
  155. X;creutz@bnlux0.bnl.gov
  156. X;23 June 1990 
  157. X
  158. X;This program simulates the cellular automaton model presented
  159. X;by P. Bak, C. Tang, and K. Wiesenfeld (Phys. Rev. Lett. 59, 381 (1987);
  160. X;Phys. Rev. A38, 364 (1988)) to illustrate self organized criticality.
  161. X;Each site carries a positive integer representing the local slope of 
  162. X;a sandpile.  If the slope exceeds 3, the site is unstable and on
  163. X;updating it drops by 4, adding one to each of his neighbors.
  164. X;Sand is lost only at the edges.  Any state will relax to stability
  165. X;through such sand loss.
  166. X
  167. X;The colors representing slopes of 0 through 7 are white, black,
  168. X;red, green, yellow, blue, magenta, and cyan, respectively.
  169. X
  170. X;Various keypresses do as follows:
  171. X;     <esc>, q, or any control character exits
  172. X;     p     pauses; repeated presses single step; any other key restarts
  173. X;     d     doubles the lattice modulo 8
  174. X;     a     sets a flag to pause after each relaxation
  175. X
  176. X;The program can be run from either CLI or Workbench.  This code
  177. X;is completely self contained and will run directly through A68K 
  178. X;followed by BLink without need for any include files. 
  179. X
  180. X;The program directly accesses the blitter for speed, but does
  181. X;so in a mode friendly to multitasking.  To understand the program 
  182. X;details you should have the Amiga Hardware Reference Manual.  
  183. X
  184. X;Technically, the show proceeds as follows:
  185. X 
  186. X;We start with ones on the borders and twos on the corners
  187. X;of a 288 by 188 lattice.  For the first loop, whenever a stable state 
  188. X;occurs, the heights are all doubled, and the system is allowed to 
  189. X;relax back to stability.  This eventually leads to a unique state 
  190. X;that when doubled relaxes to itself.  The system can be described 
  191. X;as a large Abelian group and this state represents the identity.
  192. X
  193. X;After the identity is found, the program proceeds to construct
  194. X;the inverse of the state with all cells unity.  After this is found it
  195. X;is tripled to give the inverse of the minimally stable state with all 
  196. X;cells being 3.
  197. X
  198. X;After all this, to keep the show going, the identity is 
  199. X;added to the system which then relaxes back to itself.  This loops
  200. X;until intervention.
  201. X
  202. X;If you hit 'd' on an active state early in the program, the search for
  203. X;the identity will be derailed and the program will go into a mode where
  204. X;the pattern is unlikely to repeat for the lifetime of the universe. 
  205. X;After a few hours, however, it will probably look uninterestingly random.
  206. X; ******************************************************
  207. X
  208. X; library offsets:
  209. X_LVOOpenLibrary EQU -552
  210. X_LVOCloseLibrary EQU -414 
  211. X_LVOSetAPen EQU -342 
  212. X_LVOSetBPen EQU -348 
  213. X_LVOSetDrMd EQU -354 
  214. X_LVOWritePixel EQU -324 
  215. X_LVOMove EQU -240
  216. X_LVODraw EQU -246
  217. X_LVOText EQU -60
  218. X_LVOClipBlit EQU -552 
  219. X_LVOOpenScreen EQU -198 
  220. X_LVOOpenWindow EQU -204 
  221. X_LVOCloseScreen EQU -66 
  222. X_LVOCloseWindow EQU -72
  223. X_LVOGetMsg EQU -372 
  224. X_LVOReplyMsg EQU -378 
  225. X_LVOWaitPort EQU -384 
  226. X_LVOLoadRGB4 EQU -192 
  227. X_LVOOwnBlitter EQU -456 
  228. X_LVODisownBlitter EQU -462 
  229. X_LVOWaitBlit EQU -228 
  230. X_LVOAllocMem EQU -198 
  231. X_LVOFreeMem EQU -210 
  232. X_LVOSetRast EQU -234
  233. X_LVOFindTask EQU -294 
  234. X_LVOForbid EQU -132 
  235. X
  236. X;IDCMP Flags 
  237. XCLOSEWINDOW EQU $200
  238. XVANILLAKEY  EQU $200000
  239. X; window flags
  240. XWINDOWDRAG  EQU $2
  241. XWINDOWDEPTH EQU $4      
  242. XWINDOWCLOSE EQU $8
  243. XBACKDROP    EQU $100 
  244. XBORDERLESS  EQU $800
  245. XACTIVATE    EQU $1000
  246. X; various useful numbers
  247. XMEMF_PUBLIC EQU 1
  248. XMEMF_CHIP   EQU 2
  249. XMEMF_FAST   EQU 4
  250. XMEMB_CLEAR  EQU $10000
  251. Xpr_CLI      EQU 172
  252. Xpr_MsgPort  EQU 92
  253. XAbsExecBase EQU $4
  254. XJAM1        EQU 0
  255. XJAM2        EQU 1
  256. XCOMPLEMENT  EQU 2
  257. XINVERSID    EQU 3
  258. X
  259. X; custom chip register offsets
  260. X_custom EQU $DFF000
  261. XDMACONR EQU $002
  262. XBLTCON0 EQU $040
  263. XBLTCON1 EQU $042
  264. XBLTAFWM EQU $044
  265. XBLTALWM EQU $046
  266. XBLTCPT  EQU $048
  267. XBLTBPT  EQU $04C
  268. XBLTAPT  EQU $050
  269. XBLTDPT  EQU $054
  270. XBLTSIZE EQU $058
  271. XBLTCMOD EQU $060
  272. XBLTBMOD EQU $062
  273. XBLTAMOD EQU $064
  274. XBLTDMOD EQU $066
  275. XBLTCDAT EQU $070
  276. XBLTBDAT EQU $072
  277. XBLTADAT EQU $074
  278. X
  279. X; various size parameters
  280. Xxmin EQU 16  ; should be a multiple of 16
  281. Xymin EQU 11  ; 11 or more to avoid border effects
  282. Xxmax EQU 303 ; -1+multiple of 16
  283. Xymax EQU 198  
  284. X
  285. X; a small system for testing:
  286. X;xmin equ 48
  287. X;xmax equ 127
  288. X;ymin equ 50
  289. X;ymax equ 150  
  290. X
  291. Xstartdisp EQU 2*(xmin/16)+ymin*40 ; shift from start of bitplane to lattice
  292. Xmodulo    EQU 40-2*((xmax-xmin+1)/16) ; blitter modulo
  293. Xenddisp   EQU -modulo-2+((ymax-ymin+1)*40)      ; shift to end of lattice
  294. Xbsize     EQU 20-(modulo/2)+$40*(ymax-ymin+1)   ; for BLTSIZE
  295. Xworkspacesize EQU 40*(ymax-ymin+1)
  296. X
  297. X ; startup code for CLI or Workbench
  298. X ; opens graphics and intuition libraries, calls 'Main' and exits
  299. Xstartup:
  300. X  movem.l d2-d7/a2-a6,-(a7) ; save registers
  301. X  move.l AbsExecBase,a6     ; exec base pointer
  302. X  clr.l workbenchmessage
  303. X  suba.l a1,a1              ; clear a1
  304. X  jsr _LVOFindTask(a6)      ; where is our task
  305. X  move.l d0,a4
  306. X  tst.l pr_CLI(a4)          ; are we running from CLI?
  307. X  bne fromcli               ; if not then get workbench message
  308. X  lea pr_MsgPort(a4),a0
  309. X  jsr _LVOWaitPort(a6)
  310. X  Jsr _LVOGetMsg(a6)
  311. X  move.l d0,workbenchmessage ; save for exit
  312. X;open graphics and intuition libraries
  313. Xfromcli  lea GraphicsName(pc),a1  ; pointer to name of library
  314. X    moveq #0,d0         ; accept any version
  315. X    jsr _LVOOpenLibrary(a6)
  316. X    move.l d0,GraphicsBase    ; save graphics base
  317. X    tst.l d0
  318. X    beq.s Exit1          ; quit if trouble opening library
  319. X  lea IntuitionName(pc),a1  ; pointer to name of library
  320. X    moveq #0,d0         ; accept any version
  321. X    jsr _LVOOpenLibrary(a6)
  322. X    move.l d0,IntuitionBase ; save intuition base
  323. X    tst.l d0
  324. X    beq.s Exit2          ; quit if trouble opening library
  325. X
  326. X; execute main program
  327. X    bsr Main          
  328. X
  329. X;final cleanup
  330. XExit3: movea.l IntuitionBase,a1    ; intuition base
  331. X       movea.l AbsExecBase,a6      ; exec base pointer
  332. X       jsr _LVOCloseLibrary(a6)
  333. XExit2: movea.l GraphicsBase,a1     ; graphics base
  334. X       jsr _LVOCloseLibrary(a6)
  335. X       moveq.l #0,d0               ; return zero
  336. XExit1: tst.l workbenchmessage ; are we a workbench program?
  337. X       beq.s Exit0            ; if not goto exit0
  338. X         jsr _LVOForbid(a6)     ; because the RKM tells me so
  339. X         movea.l workbenchmessage(pc),a1
  340. X         jsr _LVOReplyMsg(a6)   ; reply to workbench message
  341. XExit0: movem.l (a7)+,d2-d7/a2-a6   ; restore registers
  342. X       rts ; end of startup code
  343. X
  344. XMain: move.l a7,oldstack ; save stack for exit
  345. X; allocate various working areas
  346. X   moveq.l #7,d2 ; memory allocation loop counter
  347. X   lea.l workingplane1(pc),a2
  348. X   bra.s startalloc
  349. Xallocloop move.l #workspacesize,d0 ; size for working area
  350. X          move.l #MEMF_CHIP+MEMB_CLEAR,d1  ;get chip memory 
  351. X          jsr _LVOAllocMem(a6)
  352. X          tst.l d0
  353. X          beq quit1
  354. X           move.l d0,(a2)+        
  355. Xstartalloc dbf.s d2,allocloop
  356. X
  357. X; open screen and window
  358. X     move.l IntuitionBase(pc),a6
  359. X     lea myscreen(pc),a0
  360. X     jsr _LVOOpenScreen(a6) ; open custom screen
  361. X       move.l d0,screen     ; save screen structure pointer
  362. X       beq quit1            ; quit if trouble
  363. X     lea mywindow(pc),a0    ; open display window
  364. X     jsr  _LVOOpenWindow(a6) 
  365. X       move.l d0,window     ; save address of window structure
  366. X       beq quit2            ;quit if trouble
  367. X       movea.l d0,a0
  368. X       move.l 86(a0),userport
  369. X       movea.l 50(a0),a0 ; rastport
  370. X       move.l a0,rastport
  371. X       move.l 4(a0),a0 ; bitmap structure
  372. X       move.l 8(a0),bitplane1
  373. X       move.l 12(a0),bitplane2
  374. X       move.l 16(a0),bitplane3
  375. X       addi.l #startdisp,bitplane1
  376. X       addi.l #startdisp,bitplane2
  377. X       addi.l #startdisp,bitplane3
  378. X;set colors
  379. X     movea.l GraphicsBase(pc),a6          ; graphics library address in a6
  380. X     movea.l screen(pc),a0
  381. X     adda.l #44,a0      ; viewport
  382. X     lea.l colors(pc),a1
  383. X     moveq.l #8,d0
  384. X     jsr _LVOLoadRGB4(a6)   
  385. X; show credits
  386. X     bsr credits      
  387. X;draw initial box of ones
  388. X     movea.l rastport(pc),a1    
  389. X     moveq.w #1,d0
  390. X     jsr _LVOSetAPen(a6) ; set pen color
  391. X       movea.l rastport(pc),a1    
  392. X       moveq.w #JAM1,d0
  393. X     jsr _LVOSetDrMd(a6) ; set drawing mode      
  394. X       movea.l rastport(pc),a1    
  395. X       move.w #xmin,d0
  396. X       move.w #ymin,d1
  397. X     jsr _LVOMove(a6) ; go to top left corner
  398. X       movea.l rastport(pc),a0    
  399. X       move.w #xmax,d0
  400. X       move.w #ymin,d1
  401. X     jsr _LVODraw(a6) ; draw top line
  402. X       movea.l rastport(pc),a0    
  403. X       move.w #xmax,d0
  404. X       move.w #ymax,d1
  405. X     jsr _LVODraw(a6) ; right side
  406. X       movea.l rastport(pc),a0    
  407. X       move.w #xmin,d0
  408. X       move.w #ymax,d1
  409. X     jsr _LVODraw(a6) ; bottom
  410. X       movea.l rastport(pc),a0    
  411. X       move.w #xmin,d0
  412. X       move.w #ymin,d1
  413. X     jsr _LVODraw(a6) ; left
  414. X;set corners to two
  415. X       movea.l rastport(pc),a1    
  416. X       moveq.w #2,d0
  417. X     jsr _LVOSetAPen(a6) ; new color for corners
  418. X       movea.l rastport(pc),a1    
  419. X       move.w #xmin,d0
  420. X       move.w #ymin,d1
  421. X     jsr _LVOWritePixel(a6) ; nw corner
  422. X       movea.l rastport(pc),a1    
  423. X       move.w #xmax,d0
  424. X       move.w #ymin,d1
  425. X     jsr _LVOWritePixel(a6) ; ne corner
  426. X       movea.l rastport(pc),a1    
  427. X       move.w #xmax,d0
  428. X       move.w #ymax,d1
  429. X     jsr _LVOWritePixel(a6) ; se corner
  430. X       movea.l rastport(pc),a1    
  431. X       move.w #xmin,d0
  432. X       move.w #ymax,d1
  433. X     jsr _LVOWritePixel(a6) ; sw corner
  434. X
  435. X; showtime -- first double until identity found
  436. Xfirstloop: bsr relax
  437. X        lea.l storage1(pc),a0 ; prepare to compare with storage
  438. X        lea.l bitplane1(pc),a1
  439. X        bsr compare2  ; see if lattices equal
  440. X        btst.b #5,control(pc)    
  441. X        bne.s foundidentity
  442. X         lea.l bitplane1(pc),a0
  443. X         lea.l storage1(pc),a1
  444. X         bsr copy2              ; copy bitplanes to storage
  445. X         bsr double             ; double things 
  446. X         bra.s firstloop
  447. X; save identity and set first storage plane to unity
  448. Xfoundidentity:
  449. X         lea.l bitplane1(pc),a0
  450. X         lea.l identity1(pc),a1
  451. X         bsr copy2
  452. X         lea.l storage1(pc),a0
  453. X         bsr set1 
  454. X; subtract first storage plane while adding identity 
  455. X            bra.s stillactive
  456. Xsecondloop: bsr sand
  457. X            btst.b #5,control(pc) ; check if still active   
  458. X            beq.s stillactive
  459. X             lea.l identity1(pc),a0
  460. X             lea.l bitplane1(pc),a1    
  461. X             bsr addit 
  462. Xstillactive: bsr subtract1
  463. X             btst.b #5,control(pc) ; check if more to subtract   
  464. X             bne.s tripleit
  465. X              bsr checkmessage 
  466. X              bra.s secondloop
  467. X; triple to find inverse of minimally stable state
  468. Xtripleit bsr relax 
  469. X         lea.l bitplane1(pc),a0
  470. X         lea.l storage1(pc),a1
  471. X         bsr copy2
  472. X         bsr double 
  473. X         bsr relax
  474. X         lea.l storage1(pc),a0
  475. X         lea.l bitplane1(pc),a1    
  476. X         bsr addit
  477. X         bsr relax
  478. X; to keep display moving, repeatedly add identity and relax
  479. Xfinalloop lea.l identity1(pc),a0
  480. X          lea.l bitplane1(pc),a1    
  481. X          bsr addit
  482. X          bsr relax
  483. X          bra.s finalloop
  484. X
  485. X; time to quit
  486. Xgetout:
  487. X ; close windows and screen 
  488. X      movea.l window(pc),a0
  489. X      move.l IntuitionBase(pc),a6
  490. X      jsr _LVOCloseWindow(a6)
  491. Xquit2 movea.l screen(pc),a0
  492. X      jsr _LVOCloseScreen(a6)
  493. X; deallocate memory
  494. Xquit1: movea.l AbsExecBase,a6
  495. X       moveq.l #7,d2 ; memory deallocation loop counter
  496. X       lea.l workingplane1(pc),a2
  497. X       bra.s startdealloc
  498. Xdeallocloop  move.l #workspacesize,d0 ; size for working area
  499. X             movea.l (a2)+,a1
  500. X             move.l a1,d1        ; to test if not zero
  501. X             beq.s done 
  502. X             jsr _LVOFreeMem(a6) ; return memory
  503. Xstartdealloc dbf.s d2,deallocloop
  504. Xdone movea.l oldstack(pc),a7   ; reset stack pointer
  505. X     rts ; all done
  506. X
  507. X; subroutine to update lattice until relaxed
  508. Xrelax: bsr sand
  509. X       btst.b #5,control(pc) ; check if still active   
  510. X       bne.s relaxed
  511. X        bsr checkmessage 
  512. X        bra.s relax
  513. Xrelaxed: tst.w autopause   ; should we pause
  514. X         beq.s autooff    
  515. X          bsr waitformessage
  516. Xautooff  rts      
  517. X
  518. X; message handling subroutine
  519. X; message location returned in d0, class in d2, code in d3 
  520. X; with VANILLAKEY code is ascii of pressed key 
  521. Xwaitformessage:  ; pause for a signal
  522. X      movea.l AbsExecBase,a6  
  523. X      movea.l userport(pc),a0
  524. X      jsr _LVOWaitPort(a6)   ; wait for a message
  525. Xcheckmessage:   ; enter here to not wait if no message        
  526. X      movea.l AbsExecBase,a6
  527. X      movea.l userport(pc),a0
  528. X      jsr _LVOGetMsg(a6)
  529. X       tst.l d0
  530. X       bne.s messagefound
  531. X        rts
  532. Xmessagefound:
  533. X       movea.l d0,a1       
  534. X       move.l 20(a1),d2    ; save class in d2
  535. X       move.w 24(a1),d3    ; and code in d3
  536. X      jsr _LVOReplyMsg(a6) ; reply to message
  537. X; check for various keypresses
  538. X      cmpi.w #27,d3 ; esc
  539. X       ble getout ; leave for escape or control characters
  540. X      cmpi.w #'q',d3
  541. X       beq getout ; quit for q
  542. X      cmpi.w #'p',d3 ; p ; pause for p
  543. X       bne.s not_p        
  544. X        movea.l userport(pc),a0
  545. X        jsr _LVOWaitPort(a6)   ; wait for a message
  546. Xnot_p cmpi.w #'d',d3 ; d
  547. X       bne.s not_d ; double for d
  548. X        bsr double
  549. Xnot_d cmpi.w #'a',d3 ; a
  550. X       bne.s not_a
  551. X        not.w autopause ; flip autopausing flag
  552. Xnot_a rts  ; continue
  553. X
  554. X; storage area         
  555. X; window and screen parameters
  556. Xmywindow dc.w 0,0,320,200     ; xmin,ymin,xsize,ysize
  557. X         dc.b 0,0             ; detail pen, block pen
  558. X           ; (Intuition Direct Communication Message Port)
  559. X         dc.l VANILLAKEY      ; IDCMP Flags, ask for keypresses 
  560. X         dc.l ACTIVATE+BORDERLESS ;+BACKDROP ; flags (type in amigabasic)
  561. X         dc.l 0               ; gadgets  
  562. X         dc.l 0               ; checkmark
  563. X         dc.l title           ; my title
  564. Xscreen   dc.l 0               ;location of screen, fill later
  565. X         dc.l 0               ;bitmap
  566. X         dc.w 0,0,320,200     ;min-max window size
  567. X         dc.w $f              ; type: 1=wbenchscreen $F=customscreen
  568. Xmyscreen dc.w 0,0,320,200 ;size
  569. X         dc.w 3           ;depth
  570. X         dc.b 5,6         ;pens
  571. X         dc.w $0          ;viewmodes- interlace=4, hires=$8000 
  572. X                          ; sprites=$4000, ham=$800, extra_halfbrite=$80
  573. X         dc.w $f          ;type: customscreen
  574. X         dc.l textattr    ;font
  575. X         dc.l title       ;title
  576. X         dc.l 0           ;gadgets    
  577. X         dc.l 0           ;custombitmap
  578. Xtextattr dc.l fontname
  579. X         dc.w 8   ;fontsize
  580. X         dc.b 0,0    ;style and flags
  581. Xcolors dc.w $fff ; color table
  582. X       dc.w $000 
  583. X       dc.w $f00
  584. X       dc.w $0f0
  585. X       dc.w $ff0
  586. X       dc.w $00f
  587. X       dc.w $f0f
  588. X       dc.w $0ff
  589. X
  590. Xworkbenchmessage dc.l 0
  591. XGraphicsBase     dc.l 0
  592. XIntuitionBase    dc.l 0
  593. XGraphicsName     dc.b 'graphics.library',0
  594. XIntuitionName    dc.b 'intuition.library',0 
  595. Xtitle            dc.b 'BlitterSand -- <esc> to exit',0
  596. Xfontname         dc.b 'topaz.font',0
  597. Xwindow           dc.l 0
  598. Xrastport         dc.l 0
  599. Xuserport         dc.l 0
  600. Xbitplane1        dc.l 0
  601. Xbitplane2        dc.l 0
  602. Xbitplane3        dc.l 0
  603. Xworkingplane1    dc.l 0
  604. Xworkingplane2    dc.l 0
  605. Xworkingplane3    dc.l 0
  606. Xstorage1         dc.l 0
  607. Xstorage2         dc.l 0
  608. Xidentity1        dc.l 0
  609. Xidentity2        dc.l 0
  610. Xcontrol          dc.w 0
  611. Xautopause        dc.w 0
  612. Xoldstack         dc.l 0
  613. X
  614. X; primary updating routine
  615. Xsand: movea.l GraphicsBase(pc),a6 ; graphics library address in a6
  616. X     jsr _LVOOwnBlitter(a6)      ; grab blitter for my use  
  617. X     lea _custom,a5
  618. X     move.l bitplane1(pc),d2     ;start of bitplane1
  619. X     move.l bitplane2(pc),d3     ;start of bitplane2
  620. X     move.l bitplane3(pc),d4     ;start of bitplane3
  621. X     move.l workingplane1(pc),d5 ; start of working plane 1
  622. X     move.l workingplane2(pc),d6 ; start of working plane 2
  623. X     move.l workingplane3(pc),d7 ; start of working plane 3
  624. X ; add left, top, and bottom neighbors to workspace
  625. X ; work on first bit: 
  626. X     jsr _LVOWaitBlit(a6)
  627. X      move.l d5,BLTDPT(a5) ; first workspace plane
  628. X      move.l d4,d0 
  629. X      move.l d0,BLTAPT(a5) ; for left neighbor
  630. X      addi.l #40,d0
  631. X      move.l d0,BLTBPT(a5) ; for bottom neighbor
  632. X      subi.l #80,d0
  633. X      move.l d0,BLTCPT(a5) ; for top
  634. X      move.w #0,BLTCON1(a5)
  635. X      move.w #$1f96,BLTCON0(a5) ; odd number of source bits set
  636. X      move.w #modulo,BLTAMOD(a5)     ; set up modulos
  637. X      move.w #modulo,BLTBMOD(a5)
  638. X      move.w #modulo,BLTCMOD(a5)
  639. X      move.w #modulo,BLTDMOD(a5)
  640. X      move.w #$ffff,BLTAFWM(a5)
  641. X      move.w #$fffe,BLTALWM(a5) ; mask out last bit of row
  642. X      move.w #bsize,BLTSIZE(a5) ; do it
  643. X ; second bit
  644. X     jsr _LVOWaitBlit(a6)
  645. X      move.l d6,BLTDPT(a5) ; second plane of workspace 
  646. X      move.l d4,d0
  647. X      move.l d0,BLTAPT(a5) ; reset bitplane pointers
  648. X      addi.l #40,d0
  649. X      move.l d0,BLTBPT(a5)
  650. X      subi.l #80,d0
  651. X      move.l d0,BLTCPT(a5)
  652. X      move.w #$1fe8,BLTCON0(a5) ; 2 or more source bits set
  653. X      move.w #bsize,BLTSIZE(a5) ; go to it
  654. X; add in fourth neighbor, third bit of result
  655. X     jsr _LVOWaitBlit(a6)
  656. X      move.l d4,d0
  657. X      addi.l #enddisp,d0 
  658. X      move.l d0,BLTAPT(a5) ; end of lattice
  659. X      move.l d7,d0
  660. X      addi.l #enddisp,d0
  661. X      move.l d0,BLTDPT(a5) ; end of third plane of workspace
  662. X      move.l d5,d0
  663. X      addi.l #enddisp,d0
  664. X      move.l d0,BLTBPT(a5) ; first workspace plane
  665. X      move.l d6,d0
  666. X      addi.l #enddisp,d0   ; second workspace plane
  667. X      move.l d0,BLTCPT(a5)
  668. X      move.w #2,BLTCON1(a5) ; descending mode
  669. X      move.w #$1f80,BLTCON0(a5) ; third bit only if all already set
  670. X      move.w #$7fff,BLTALWM(a5)
  671. X      move.w #bsize,BLTSIZE(a5) ; OK
  672. X; add in fourth neighbor, second bit of result
  673. X     jsr _LVOWaitBlit(a6)
  674. X      move.l d4,d0
  675. X      addi.l #enddisp,d0
  676. X      move.l d0,BLTAPT(a5)
  677. X      move.l d6,d0
  678. X      addi.l #enddisp,d0
  679. X      move.l d0,BLTDPT(a5)
  680. X      move.l d0,BLTCPT(a5)
  681. X      move.l d5,d0
  682. X      addi.l #enddisp,d0
  683. X      move.l d0,BLTBPT(a5)
  684. X      move.w #$1f6a,BLTCON0(a5) ; second bit only if appropriate
  685. X      move.w #bsize,BLTSIZE(a5) ; here we go again
  686. X; add in fourth neighbor, first bit of result
  687. X     jsr _LVOWaitBlit(a6)
  688. X      move.l d4,d0
  689. X      addi.l #enddisp,d0
  690. X      move.l d0,BLTAPT(a5)
  691. X      move.l d5,d0
  692. X      addi.l #enddisp,d0
  693. X      move.l d0,BLTDPT(a5)
  694. X      move.l d0,BLTBPT(a5)
  695. X      move.w #$1d3c,BLTCON0(a5) ; second bit from a xor b
  696. X      move.w #bsize,BLTSIZE(a5) ; finish setting up workspace
  697. X; add it all up
  698. X     jsr _LVOWaitBlit(a6) ; 2w,3w,2b to 3b
  699. X      move.l d4,BLTDPT(a5)
  700. X      move.l d3,BLTAPT(a5)
  701. X      move.l d6,BLTBPT(a5)
  702. X      move.l d7,BLTCPT(a5)  
  703. X      move.w #0,BLTCON1(a5) ; reset for ascending mode
  704. X      move.w #$0fea,BLTCON0(a5) 
  705. X      move.w #$ffff,BLTALWM(a5) ; fix last word mask
  706. X      move.w #bsize,BLTSIZE(a5)
  707. X     jsr _LVOWaitBlit(a6) ; 2w,2b to 2b
  708. X      move.l d3,BLTDPT(a5)
  709. X      move.l d3,BLTAPT(a5)
  710. X      move.l d6,BLTBPT(a5)
  711. X      move.w #$0d3c,BLTCON0(a5) 
  712. X      move.w #bsize,BLTSIZE(a5)
  713. X     jsr _LVOWaitBlit(a6) ; 1w,1b,2b to 3w for carry
  714. X      move.l d7,BLTDPT(a5)
  715. X      move.l d2,BLTAPT(a5)
  716. X      move.l d3,BLTBPT(a5)
  717. X      move.l d5,BLTCPT(a5) 
  718. X      move.w #$0f80,BLTCON0(a5) 
  719. X      move.w #bsize,BLTSIZE(a5)
  720. X     jsr _LVOWaitBlit(a6) ; 1w, 1b to 2b
  721. X      move.l d3,BLTDPT(a5)
  722. X      move.l d2,BLTAPT(a5)
  723. X      move.l d5,BLTBPT(a5)
  724. X      move.l d3,BLTCPT(a5) 
  725. X      move.w #$0f6a,BLTCON0(a5) 
  726. X      move.w #bsize,BLTSIZE(a5)
  727. X     jsr _LVOWaitBlit(a6) ; final carry
  728. X      move.l d4,BLTDPT(a5)
  729. X      move.l d4,BLTAPT(a5)
  730. X      move.l d7,BLTBPT(a5)
  731. X      move.w #$0dfc,BLTCON0(a5) 
  732. X      move.w #bsize,BLTSIZE(a5)
  733. X     jsr _LVOWaitBlit(a6) ; 1w, 1b to 1b
  734. X      move.w DMACONR(a5),control ; save control register for later
  735. X      move.l d2,BLTDPT(a5)
  736. X      move.l d2,BLTAPT(a5)
  737. X      move.l d5,BLTBPT(a5)
  738. X      move.w #$0d3c,BLTCON0(a5) 
  739. X      move.w #bsize,BLTSIZE(a5)
  740. X   jsr _LVODisownBlitter(a6) ; I'm done for now
  741. X     rts
  742. X
  743. X; double main lattice
  744. Xdouble: movea.l GraphicsBase(pc),a6 ; graphics library address in a6
  745. X    jsr _LVOOwnBlitter(a6)  
  746. X     lea _custom,a5
  747. X     move.l bitplane1(pc),d2 ;start of bitplane1
  748. X     move.l bitplane2(pc),d3 ;start of bitplane2
  749. X     move.l bitplane3(pc),d4 ;start of bitplane3
  750. X; shift up all bitplanes
  751. X     jsr _LVOWaitBlit(a6)
  752. X      move.l d4,BLTDPT(a5) ; copy to plane 3
  753. X      move.l d3,BLTAPT(a5) ; from plane 2
  754. X      move.w #0,BLTCON1(a5)
  755. X      move.w #$09f0,BLTCON0(a5)
  756. X      move.w #modulo,BLTAMOD(a5)
  757. X      move.w #modulo,BLTBMOD(a5)
  758. X      move.w #modulo,BLTCMOD(a5)
  759. X      move.w #modulo,BLTDMOD(a5)
  760. X      move.w #$ffff,BLTAFWM(a5)
  761. X      move.w #$ffff,BLTALWM(a5)
  762. X      move.w #bsize,BLTSIZE(a5)
  763. X     jsr _LVOWaitBlit(a6)
  764. X      move.l d3,BLTDPT(a5) ; copy to plane 2
  765. X      move.l d2,BLTAPT(a5) ; from plane 1
  766. X      move.w #$09f0,BLTCON0(a5) 
  767. X      move.w #bsize,BLTSIZE(a5)
  768. X     jsr _LVOWaitBlit(a6)
  769. X      move.l d2,BLTDPT(a5) ; clear plane 1
  770. X      move.w #$0100,BLTCON0(a5)
  771. X      move.w #bsize,BLTSIZE(a5)
  772. X     jsr _LVODisownBlitter(a6) ; give it back
  773. X     rts
  774. X
  775. Xcompare2 ; compare two planes, pointed to by (a0) and (a1)
  776. X    movea.l GraphicsBase(pc),a6 ; graphics library address in a6
  777. X     lea _custom,a5
  778. X     move.l (a0)+,d2 ;start of bitplane1
  779. X     move.l (a0),d3 ;start of bitplane2
  780. X     move.l (a1)+,d4 ;start of comparison bitplane1
  781. X     move.l (a1),d5 ;start of comparison bitplane2
  782. X    jsr _LVOOwnBlitter(a6)  ; get blitter
  783. X     jsr _LVOWaitBlit(a6)
  784. X      move.l d2,BLTAPT(a5) ; plane 1
  785. X      move.l d4,BLTBPT(a5) ; compare 1
  786. X      move.w #0,BLTCON1(a5)
  787. X      move.w #$0c3c,BLTCON0(a5)
  788. X      move.w #modulo,BLTAMOD(a5)
  789. X      move.w #modulo,BLTBMOD(a5)
  790. X      move.w #$ffff,BLTAFWM(a5)
  791. X      move.w #$ffff,BLTALWM(a5)
  792. X      move.w #bsize,BLTSIZE(a5)
  793. X     jsr _LVOWaitBlit(a6)
  794. X      move.w DMACONR(a5),control ; save control register for later
  795. X      move.l d3,BLTAPT(a5) ; plane 2
  796. X      move.l d5,BLTBPT(a5) ; compare 2
  797. X      move.w #0,BLTCON1(a5)
  798. X      move.w #$0c3c,BLTCON0(a5)
  799. X      move.w #bsize,BLTSIZE(a5)
  800. X     jsr _LVOWaitBlit(a6)
  801. X      move.w DMACONR(a5),d0
  802. X      and.w d0,control ; save control register for later
  803. X     jsr _LVODisownBlitter(a6) ; give it back
  804. X     rts
  805. X
  806. Xcopy2 ; copy two planes, pointed to by (a0) and (a1)
  807. X    movea.l GraphicsBase(pc),a6 ; graphics library address in a6
  808. X     lea _custom,a5
  809. X     move.l (a0)+,d2 ;start of bitplane1
  810. X     move.l (a0),d3 ;start of bitplane2
  811. X     move.l (a1)+,d4 ;start of copy bitplane1
  812. X     move.l (a1),d5 ;start of copy bitplane2
  813. X    jsr _LVOOwnBlitter(a6)  ; prepare blitter
  814. X     jsr _LVOWaitBlit(a6)
  815. X      move.l d2,BLTAPT(a5) ; plane 1
  816. X      move.l d4,BLTDPT(a5) ; copy 1
  817. X      move.w #0,BLTCON1(a5)
  818. X      move.w #$09f0,BLTCON0(a5) ; straight copy
  819. X      move.w #modulo,BLTAMOD(a5)
  820. X      move.w #modulo,BLTDMOD(a5)
  821. X      move.w #$ffff,BLTAFWM(a5)
  822. X      move.w #$ffff,BLTALWM(a5)
  823. X      move.w #bsize,BLTSIZE(a5)
  824. X     jsr _LVOWaitBlit(a6)
  825. X      move.l d3,BLTAPT(a5) ; plane 2
  826. X      move.l d5,BLTDPT(a5) ; copy 2
  827. X      move.w #0,BLTCON1(a5)
  828. X      move.w #$09f0,BLTCON0(a5)
  829. X      move.w #bsize,BLTSIZE(a5)
  830. X     jsr _LVODisownBlitter(a6) ; give it back
  831. X     rts
  832. X
  833. Xset1: ; set one plane to unity, pointed to by (a0)
  834. X    movea.l GraphicsBase(pc),a6 ; graphics library address in a6
  835. X     lea _custom,a5
  836. X     move.l (a0),d2 ;start of plane
  837. X    jsr _LVOOwnBlitter(a6)  ; get blitter
  838. X     jsr _LVOWaitBlit(a6)
  839. X      move.l d2,BLTDPT(a5) ; plane 1
  840. X      move.w #0,BLTCON1(a5)
  841. X      move.w #$01ff,BLTCON0(a5) ; straight set
  842. X      move.w #modulo,BLTDMOD(a5)
  843. X      move.w #bsize,BLTSIZE(a5)
  844. X     jsr _LVODisownBlitter(a6) ; give it back
  845. X     rts
  846. X
  847. X; subtract storage1 from nonzero lattice sites
  848. Xsubtract1: movea.l GraphicsBase(pc),a6 ; graphics library address in a6
  849. X    jsr _LVOOwnBlitter(a6)
  850. X     lea _custom,a5
  851. X     move.l bitplane1(pc),d2 ;start of bitplane1
  852. X     move.l bitplane2(pc),d3 ;start of bitplane2
  853. X     move.l workingplane1(pc),d5 ; start of working plane 1
  854. X     move.l workingplane2(pc),d6 ; start of working plane 2
  855. X     move.l storage1(pc),d7
  856. X     jsr _LVOWaitBlit(a6)
  857. X      move.l d5,BLTDPT(a5) ; new first plane to working plane
  858. X      move.l d2,BLTAPT(a5) ; old first plane
  859. X      move.l d3,BLTBPT(a5) ; old second plane
  860. X      move.l d7,BLTCPT(a5) ; subtracting plane
  861. X      move.w #0,BLTCON1(a5)
  862. X      move.w #$0f58,BLTCON0(a5)
  863. X      move.w #modulo,BLTAMOD(a5)
  864. X      move.w #modulo,BLTBMOD(a5)
  865. X      move.w #modulo,BLTCMOD(a5)
  866. X      move.w #modulo,BLTDMOD(a5)
  867. X      move.w #$ffff,BLTAFWM(a5)
  868. X      move.w #$ffff,BLTALWM(a5)
  869. X      move.w #bsize,BLTSIZE(a5)
  870. X     jsr _LVOWaitBlit(a6)
  871. X      move.l d6,BLTDPT(a5) ; new second plane to working plane
  872. X      move.l d2,BLTAPT(a5) ; old first plane
  873. X      move.l d3,BLTBPT(a5) ; old second plane
  874. X      move.l d7,BLTCPT(a5) ; subtracting plane
  875. X      move.w #0,BLTCON1(a5)
  876. X      move.w #$0fc4,BLTCON0(a5)
  877. X      move.w #bsize,BLTSIZE(a5)
  878. X     jsr _LVOWaitBlit(a6)
  879. X      move.l d7,BLTDPT(a5) ; new subtracting plane to storage
  880. X      move.l d2,BLTAPT(a5) ; old first plane
  881. X      move.l d3,BLTBPT(a5) ; old second plane
  882. X      move.l d7,BLTCPT(a5) ; subtracting plane
  883. X      move.w #0,BLTCON1(a5)
  884. X      move.w #$0f02,BLTCON0(a5)
  885. X      move.w #bsize,BLTSIZE(a5)
  886. X     jsr _LVOWaitBlit(a6)
  887. X      move.w DMACONR(a5),control ; save control register for later
  888. X      move.l d5,BLTAPT(a5) ; new plane 1
  889. X      move.l d2,BLTDPT(a5) ; copy back
  890. X      move.w #0,BLTCON1(a5)
  891. X      move.w #$09f0,BLTCON0(a5) ; straight copy
  892. X      move.w #bsize,BLTSIZE(a5)
  893. X     jsr _LVOWaitBlit(a6)
  894. X      move.l d6,BLTAPT(a5) ; new plane 2
  895. X      move.l d3,BLTDPT(a5) ; copy back
  896. X      move.w #0,BLTCON1(a5)
  897. X      move.w #$09f0,BLTCON0(a5)
  898. X      move.w #bsize,BLTSIZE(a5)
  899. X    jsr _LVODisownBlitter(a6) ; give it back
  900. X     rts
  901. X
  902. X; add two lattices, source pointed at by (a0) and dest by (a1)
  903. Xaddit: movea.l GraphicsBase(pc),a6 ; graphics library address in a6
  904. X     lea _custom,a5
  905. X     move.l (a1)+,d2 ;start of bitplane1
  906. X     move.l (a1)+,d3 ;start of bitplane2
  907. X     move.l (a1),d4  ;start of bitplane3
  908. X     move.l (a0)+,d5 ;start of adding plane1
  909. X     move.l (a0),d6  ;start of adding plane2
  910. X    jsr _LVOOwnBlitter(a6) ; prepare to add identity to lattice
  911. X     move.l workingplane3(pc),d7 ; for carry
  912. X    jsr _LVOWaitBlit(a6)
  913. X      move.l d7,BLTDPT(a5) ; carry
  914. X      move.l d2,BLTAPT(a5) ; old first plane
  915. X      move.l d5,BLTBPT(a5) ; identity1
  916. X      move.w #0,BLTCON1(a5)
  917. X      move.w #$0dc0,BLTCON0(a5)
  918. X      move.w #modulo,BLTAMOD(a5)
  919. X      move.w #modulo,BLTBMOD(a5)
  920. X      move.w #modulo,BLTCMOD(a5)
  921. X      move.w #modulo,BLTDMOD(a5)
  922. X      move.w #$ffff,BLTAFWM(a5)
  923. X      move.w #$ffff,BLTALWM(a5)
  924. X      move.w #bsize,BLTSIZE(a5)
  925. X    jsr _LVOWaitBlit(a6)
  926. X      move.l d2,BLTDPT(a5) ; new first plane (assume old=0)
  927. X      move.l d2,BLTAPT(a5) ; old first plane
  928. X      move.l d5,BLTBPT(a5) ; identity1
  929. X      move.w #0,BLTCON1(a5)
  930. X      move.w #$0d3c,BLTCON0(a5)
  931. X      move.w #bsize,BLTSIZE(a5)
  932. X    jsr _LVOWaitBlit(a6)
  933. X      move.l d4,BLTDPT(a5) ; new third bit
  934. X      move.l d3,BLTAPT(a5) ; old second plane
  935. X      move.l d6,BLTBPT(a5) ; identity2
  936. X      move.l d7,BLTCPT(a5) ; old carry
  937. X      move.w #0,BLTCON1(a5)
  938. X      move.w #$0fe8,BLTCON0(a5)
  939. X      move.w #bsize,BLTSIZE(a5)
  940. X    jsr _LVOWaitBlit(a6)
  941. X      move.l d3,BLTDPT(a5) ; new second bit
  942. X      move.l d3,BLTAPT(a5) ; old second plane
  943. X      move.l d6,BLTBPT(a5) ; identity2
  944. X      move.l d7,BLTCPT(a5) ; old carry
  945. X      move.w #0,BLTCON1(a5)
  946. X      move.w #$0f96,BLTCON0(a5)
  947. X      move.w #bsize,BLTSIZE(a5)
  948. X    jsr _LVODisownBlitter(a6) ; give it back
  949. X    rts
  950. X
  951. Xcredits: ; display introductory comments    
  952. X    moveq.l #30,d2 ; length of lines
  953. X    moveq.l #15,d3  ; number of lines
  954. X    moveq.l #25,d4 ; starting row
  955. X    movea.l GraphicsBase(pc),a6 ; graphics library address in a6
  956. X    lea.l mytext(pc),a3 ; start of text information
  957. X      movea.l rastport(pc),a1    
  958. X      moveq.w #7,d0
  959. X    jsr _LVOSetBPen(a6) ; set background pen color
  960. X      movea.l rastport(pc),a1    
  961. X      moveq.w #JAM2,d0
  962. X    jsr _LVOSetDrMd(a6) ; set drawing mode      
  963. X    bra startprint 
  964. Xmyprint:   movea.l rastport(pc),a1 ; rastport
  965. X           move.l d4,d1  ; starting row
  966. X           moveq.l #40,d0 ; starting column
  967. X         jsr _LVOMove(a6) ; locate pen
  968. X           movea.l rastport(pc),a1 ; rastport
  969. X           move.b (a3)+,d0 ; get color
  970. X           andi.l #7,d0 ; make sure color valid 
  971. X         jsr _LVOSetAPen(a6) ; set color
  972. X           movea.l rastport(pc),a1 ; rastport
  973. X           movea.l a3,a0 ; text location
  974. X           move.l d2,d0  ; length of line
  975. X         jsr _LVOText(a6) ; print line
  976. X         adda.l d2,a3 ; next line
  977. X         addi.l #8,d4 ; next row 
  978. Xstartprint: dbf d3,myprint      
  979. X     bsr waitformessage ; wait for key press
  980. X     movea.l GraphicsBase(pc),a6 ; graphics library address in a6
  981. X       movea.l rastport(pc),a1
  982. X       moveq.l #0,d0
  983. X     jsr _LVOSetRast(a6) ; clear screen
  984. X    rts
  985. Xmytext: ; initial number represents color
  986. X  dc.b 2,'                              '
  987. X  dc.b 2,'         BlitterSand          '
  988. X  dc.b 2,'                              '
  989. X  dc.b 6,'             by               '
  990. X  dc.b 2,'                              '
  991. X  dc.b 5,'        Michael Creutz        '
  992. X  dc.b 6,'     creutz@bnlux0.bnl.gov    '
  993. X  dc.b 5,'                              '
  994. X  dc.b 5,'<esc>, q  exit                '
  995. X  dc.b 5,'  p       pause               '
  996. X  dc.b 5,'  d       double modulo 8     '
  997. X  dc.b 5,'  a       pause after relax   '
  998. X  dc.b 1,'                              '
  999. X  dc.b 1,'    Press any key to start    '
  1000. X  dc.b 2,'                              '
  1001. X   end
  1002. END_OF_FILE
  1003. if test 29043 -ne `wc -c <'BlitterSand.asm'`; then
  1004.     echo shar: \"'BlitterSand.asm'\" unpacked with wrong size!
  1005. fi
  1006. chmod +x 'BlitterSand.asm'
  1007. # end of 'BlitterSand.asm'
  1008. fi
  1009. if test -f 'BlitterSand.uu' -a "${1}" != "-c" ; then 
  1010.   echo shar: Will not clobber existing file \"'BlitterSand.uu'\"
  1011. else
  1012. echo shar: Extracting \"'BlitterSand.uu'\" \(4689 characters\)
  1013. sed "s/^X//" >'BlitterSand.uu' <<'END_OF_FILE'
  1014. Xbegin 700 BlitterSand
  1015. XM```#\P`````````!``````````````,5```#Z0```Q5(YS\^+'@`!$*Y```#E
  1016. XMPI/)3J[^VBA`2JP`K&8``!1![`!<3J[^@$ZN_HPCP````\)#^@.<<`!.KOW8$
  1017. XM(\````/&2H!G,D/Z`YEP`$ZN_=@CP````\I*@&<280``-B)Y```#RBQX``1.1
  1018. XMKOYB(GD```/&3J[^8G``2KD```/"9PQ.KO]\(GH#/DZN_H9,WWS\3G4CSP``E
  1019. XM!%)T!T7Z`YA@&"`\```=8"(\``$``DZN_SI*@&<``@`DP%'*_^8L>@,.0?H"=
  1020. XMRDZN_SHCP````WAG``'D0?H"B$ZN_S0CP```!!IG``'*($`CZ`!6```$(B!H_
  1021. XM`#(CR```!!X@:``$(^@`"```!"8CZ``,```$*B/H`!````0N!KD```&Z```$8
  1022. XM)@:Y```!N@``!"H&N0```;H```0N+'H"E"!Z`D+1_````"Q#^@)R<`A.KO]`Q
  1023. XM80`(R")Z`M!P`4ZN_JHB>@+&<`!.KOZ>(GH"O#`\`!`R/``+3J[_$"!Z`JPPR
  1024. XM/`$O,CP`"TZN_PH@>@*<,#P!+S(\`,9.KO\*('H"C#`\`!`R/`#&3J[_"B!ZN
  1025. XM`GPP/``0,CP`"TZN_PHB>@)L<`).KOZJ(GH"8C`\`!`R/``+3J[^O")Z`E(PC
  1026. XM/`$O,CP`"TZN_KPB>@)",#P!+S(\`,9.KOZ\(GH",C`\`!`R/`#&3J[^O&$`8
  1027. XM`-Q!^@(^0_H"(F$`!08(.@`%`D!F$D'Z`A)#^@(F80`%>&$`!&!@UD'Z`@!#R
  1028. XM^@(<80`%9D'Z`@QA``7.8!AA``(:"#H`!0(,9PQ!^@'^0_H!VF$`!NQA``7F/
  1029. XM"#H`!0'T9@9A``"D8-9A``!R0?H!O$/Z`=!A``4B80`$"F$``%Y!^@'`0_H!L
  1030. XMI&$`!K9A``!.0?H!N$/Z`91A``:F80``/F#N('H!>BQZ`29.KO^X('H`S$ZNG
  1031. XM_[XL>``$=`=%^@%X8!`@/```'6`B6B()9PA.KO\N4<K_[BYZ`7Y.=6$``7P(X
  1032. XM.@`%`6YF!F$``!Y@[DIY```$4&<$80``!$YU+'@`!"!Z`21.KOZ`+'@`!"!ZT
  1033. XM`1A.KOZ,2H!F`DYU(D`D*0`4-BD`&$ZN_H8,0P`;;P#_=`Q#`'%G`/]L#$,`[
  1034. XM<&8(('H`YDZN_H`,0P!D9@1A``,V#$,`868&1GD```103G4``````4``R```*
  1035. XM`"``````&````````````````_$````````````````!0`#(``\``````4``%
  1036. XMR``#!08````/```#J@```_$`````````````!`X`"```#_\```\``/`/\``/[
  1037. XM#P\`_P```````````````&=R87!H:6-S+FQI8G)A<GD`:6YT=6ET:6]N+FQIW
  1038. XM8G)A<GD`0FQI='1E<E-A;F0@+2T@/&5S8SX@=&\@97AI=`!T;W!A>BYF;VYT[
  1039. XM`````````````````````````````````````````````````````````````
  1040. XM```````````````````````L>O]N3J[^.$OY`-_P`"0Z_\`F.O_`*#K_P"HZ9
  1041. XM_\`L.O_`+CK_P$ZN_QPK10!4(`0K0`!0!H`````H*T``3`2`````4"M``$@[L
  1042. XM?````$([?!^6`$`[?``$`&0[?``$`&([?``$`&`[?``$`&8[?/__`$0[?/_^/
  1043. XM`$8[?"\2`%A.KO\<*T8`5"`$*T``4`:`````*"M``$P$@````%`K0`!(.WP?3
  1044. XMZ`!`.WPO$@!83J[_'"`$!H```!U:*T``4"`'!H```!U:*T``5"`%!H```!U:P
  1045. XM*T``3"`&!H```!U:*T``2#M\``(`0CM\'X``0#M\?_\`1CM\+Q(`6$ZN_QP@@
  1046. XM!`:````=6BM``%`@!@:````=6BM``%0K0`!((`4&@```'5HK0`!,.WP?:@!`J
  1047. XM.WPO$@!83J[_'"`$!H```!U:*T``4"`%!H```!U:*T``5"M``$P[?!T\`$`[F
  1048. XM?"\2`%A.KO\<*T0`5"M#`%`K1@!,*T<`2#M\````0CM\#^H`0#M\__\`1CM\_
  1049. XM+Q(`6$ZN_QPK0P!4*T,`4"M&`$P[?`T\`$`[?"\2`%A.KO\<*T<`5"M"`%`K"
  1050. XM0P!,*T4`2#M\#X``0#M\+Q(`6$ZN_QPK0P!4*T(`4"M%`$PK0P!(.WP/:@!`5
  1051. XM.WPO$@!83J[_'"M$`%0K1`!0*T<`3#M\#?P`0#M\+Q(`6$ZN_QPS[0`"```$T
  1052. XM3BM"`%0K0@!0*T4`3#M\#3P`0#M\+Q(`6$ZN_C).=2QZ_41.KOXX2_D`W_``S
  1053. XM)#K]EB8Z_98H.OV63J[_'"M$`%0K0P!0.WP```!".WP)\`!`.WP`!`!D.WP`P
  1054. XM!`!B.WP`!`!@.WP`!`!F.WS__P!$.WS__P!&.WPO$@!83J[_'"M#`%0K0@!0\
  1055. XM.WP)\`!`.WPO$@!83J[_'"M"`%0[?`$``$`[?"\2`%A.KOXR3G4L>ORV2_D`K
  1056. XMW_``)!@F$"@9*A%.KOXX3J[_'"M"`%`K1`!,.WP```!".WP,/`!`.WP`!`!D5
  1057. XM.WP`!`!B.WS__P!$.WS__P!&.WPO$@!83J[_'#/M``(```1.*T,`4"M%`$P[A
  1058. XM?````$([?`P\`$`[?"\2`%A.KO\<,"T``L%Y```$3DZN_C).=2QZ_#!+^0#?S
  1059. XM\``D&"80*!DJ$4ZN_CA.KO\<*T(`4"M$`%0[?````$([?`GP`$`[?``$`&0[J
  1060. XM?``$`&8[?/__`$0[?/__`$8[?"\2`%A.KO\<*T,`4"M%`%0[?````$([?`GPL
  1061. XM`$`[?"\2`%A.KOXR3G4L>OO`2_D`W_``)!!.KOXX3J[_'"M"`%0[?````$([E
  1062. XM?`'_`$`[?``$`&8[?"\2`%A.KOXR3G4L>ON*3J[^.$OY`-_P`"0Z^]PF.OO<X
  1063. XM*CK[X"PZ^^`N.OOD3J[_'"M%`%0K0@!0*T,`3"M'`$@[?````$([?`]8`$`[E
  1064. XM?``$`&0[?``$`&([?``$`&`[?``$`&8[?/__`$0[?/__`$8[?"\2`%A.KO\<8
  1065. XM*T8`5"M"`%`K0P!,*T<`2#M\````0CM\#\0`0#M\+Q(`6$ZN_QPK1P!4*T(`3
  1066. XM4"M#`$PK1P!(.WP```!".WP/`@!`.WPO$@!83J[_'#/M``(```1.*T4`4"M"-
  1067. XM`%0[?````$([?`GP`$`[?"\2`%A.KO\<*T8`4"M#`%0[?````$([?`GP`$`[+
  1068. XM?"\2`%A.KOXR3G4L>OJ(2_D`W_``)!DF&2@1*A@L$$ZN_C@N.OKD3J[_'"M'S
  1069. XM`%0K0@!0*T4`3#M\````0CM\#<``0#M\``0`9#M\``0`8CM\``0`8#M\``0`<
  1070. XM9CM\__\`1#M\__\`1CM\+Q(`6$ZN_QPK0@!4*T(`4"M%`$P[?````$([?`T\T
  1071. XM`$`[?"\2`%A.KO\<*T0`5"M#`%`K1@!,*T<`2#M\````0CM\#^@`0#M\+Q(`^
  1072. XM6$ZN_QPK0P!4*T,`4"M&`$PK1P!(.WP```!".WP/E@!`.WPO$@!83J[^,DYUZ
  1073. XM=!YV#W@9+'KYK$?Z`&(B>OG\<`=.KOZD(GKY\G`!3J[^GF```#(B>OGD(@1PM
  1074. XM*$ZN_Q`B>OG8$!L"@`````=.KOZJ(GKYR"!+(`).KO_$U\(&A`````A1R__.U
  1075. XM80#XBBQZ^50B>OFH<`!.KO\63G4"("`@("`@("`@("`@("`@("`@("`@("`@9
  1076. XM("`@("`@`B`@("`@("`@($)L:71T97)386YD("`@("`@("`@(`(@("`@("`@@
  1077. XM("`@("`@("`@("`@("`@("`@("`@("`&("`@("`@("`@("`@(&)Y("`@("`@A
  1078. XM("`@("`@("`@`B`@("`@("`@("`@("`@("`@("`@("`@("`@("`@(`4@("`@G
  1079. XM("`@($UI8VAA96P@0W)E=71Z("`@("`@("`&("`@("!C<F5U='I`8FYL=7@PL
  1080. XM+F)N;"YG;W8@("`@!2`@("`@("`@("`@("`@("`@("`@("`@("`@("`@(`4\J
  1081. XM97-C/BP@<2`@97AI="`@("`@("`@("`@("`@("`%("!P("`@("`@('!A=7-EC
  1082. XM("`@("`@("`@("`@("`@!2`@9"`@("`@("!D;W5B;&4@;6]D=6QO(#@@("`@L
  1083. XM(`4@(&$@("`@("`@<&%U<V4@869T97(@<F5L87@@("`!("`@("`@("`@("`@3
  1084. XM("`@("`@("`@("`@("`@("`@`2`@("!0<F5S<R!A;GD@:V5Y('1O('-T87)TP
  1085. XM("`@(`(@("`@("`@("`@("`@("`@("`@("`@("`@("`@("``3G$```/L````P
  1086. XM'``````````*````+````#P```!0````7@```&P```!X````D@```,@```#:4
  1087. XM````Z````/(```#^```!!@```0X```$8```!(@```2P```+L```#5````W0`3
  1088. XC``.:```#G@```ZH```9>```'8@``!XH```CZ`````````_+LL
  1089. X``
  1090. Xend
  1091. Xsize 3320
  1092. END_OF_FILE
  1093. if test 4689 -ne `wc -c <'BlitterSand.uu'`; then
  1094.     echo shar: \"'BlitterSand.uu'\" unpacked with wrong size!
  1095. fi
  1096. # end of 'BlitterSand.uu'
  1097. fi
  1098. echo shar: End of archive 1 \(of 1\).
  1099. cp /dev/null ark1isdone
  1100. MISSING=""
  1101. for I in 1 ; do
  1102.     if test ! -f ark${I}isdone ; then
  1103.     MISSING="${MISSING} ${I}"
  1104.     fi
  1105. done
  1106. if test "${MISSING}" = "" ; then
  1107.     echo You have the archive.
  1108.     rm -f ark[1-9]isdone
  1109. else
  1110.     echo You still need to unpack the following archives:
  1111.     echo "        " ${MISSING}
  1112. fi
  1113. ##  End of shell archive.
  1114. exit 0
  1115. -- 
  1116. Mail submissions (sources or binaries) to <amiga@uunet.uu.net>.
  1117. Mail comments to the moderator at <amiga-request@uunet.uu.net>.
  1118. Post requests for sources, and general discussion to comp.sys.amiga.
  1119.